100 REM -FADER COLLECTION BASIC DEMO-
110 REM PROGRAMMIERT VON
120 REM SASCHA REICHERT
130 REM (C)OPYRIGHT 1992
140 REM
150 PRINT"[147][197]INEN [205]OMENT BITTE, [198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206] UND
160 [153]"EIN (null)(null)ATN(null)ATN-STR$EMOBILD WERDEN NACHGELADEN.
170 IF A=0 THEN A=1:LOAD"FADER COLLECTION",8,1
180 IF A=1 THEN A=2:LOAD"?PIC KOALA BILD",8,1
200 POKE53281,0:POKE53280,0
210 PRINT"[147][155]  [198]ADER [195]OLLECTION   > [194][193][211][201][195] [196][197][205][207] <"
220 PRINT"[196]IESES [194]ASIC-[208]RG DEMONSTRIERT DIE
230 [153]"ASCUNKTIONEN UND DIE ATNNWENDUNG DES
240 PRINT"[193]SSEMBLERPRGS. '[198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]'.
250 [153]"CONTASCADER LENOLLECTION IST EINE ATNRT PEEKASIC-
260 PRINT"ERWEITERUNG, WIRD ABER NICHT DURCH DIE
270 [153]"VALINGABE EINES PEEKEFEHLSNAMENS AUFGERUFEN,
280 PRINT"SONDERN DURCH [211][217][211] [193]UFRUF.
285 [141] 10000
287 [153]"LOAD"
290 [153]"OPENSTR$ADURCH BLEIBT DIE ATNNWENDUNG DIESES (null)(null)CHR$S
300 PRINT"NICHT AUF [194][193][211][201][195] BESCHRAENKT,
310 [153]"ES KANN GENAUSO VON EINEM ATNSSEMBLERPRG
320 PRINT"AUFGERUFEN WERDEN.
330 [153]"STR$IE ATNNWENDUNG AUF ATNSSEMBLEREBENE IST    AM (null)CHLUSS DIESER";
340 [153]" ATNNLEITUNG NACHZULESEN."
390 [141] 10000
400 [153]"LOAD-(null)AS IST ASCATNSTR$VAL(null) LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null) UEBERHAUPT?
410 PRINT"[153][198][195] IST EIN [208]AKET VON [210]OUTINEN ZUR
420 [153]"EFFEKTVOLLEN VALINBLENDUNG VON
430 PRINT"[205]ULTICOLOR [200]IRESBILDERN IM [203][207][193][204][193]-[198]ORMAT."
440 PRINT"[214]OM ALTBEKANNTEN [198][204][196] BIS ZUR
450 [153]"(null)IXELEINBLENDUNG IST ALLES DABEI.
460 PRINT"[197]IN JEWEILS ENTSPRECHENDER              [193]USBLENDEFFEKT
470 [153]"EXISTIERT NATUERLICH AUCH!"
480 [141] 10000
500 [153]"LOADSYSSTR$AMIT IST ES JETZT AUCH JEDEM           PEEKASICPROGRAMMIERER MOEGLICH,
510 PRINT"SEINE [212]ITELBILDER IN SELBSTGESCHRIEBENEN
520 [153]"(null)ROGRAMMEN PROFESSIONELL EINZUBLENDEN."
530 [153]"(null)ND SELBST WENN DAS PEEKILD NUR ANGEZEIGT"
540 [153]"WERDEN SOLL, HILFT ASCADER LENOLLECTION.
545 GOSUB 10000
550 PRINT"[147][155][197]IN [194]ILD DARZUSTELLEN IST IN [194][193][211][201][195]      NUR MIT LANGEN [215]ARTEZEITEN
560 [153]"VERBUNDEN MOEGLICH, WEIL DAS
570 PRINT"[203]OPIEREN DER [198]ARBINFORMATIONEN IN DIE
580 [153]"ENTSPRECHENDEN (null)PEICHERADRESSEN
590 PRINT"MIT DEN LAHMEN [194]ASICBEFEHLEN
600 [153]"EINFACH VIEL ZU LANGE DAUERT."
610 [141] 10000
630 [153]"LOADRIGHT$M FOLGENDEN WERDEN RIGHT$HNEN DIE VALFFEKTE
635 PRINT"ANHAND EINES [196]EMOBILDES IM [203][207][193][204][193]-[198]ORMAT
640 [153]"IN DER FUENFTHOECHSTEN CHR$ESCHWINDIGKEIT
650 PRINT"VORGEFUEHRT. [196]ANACH ERKLAERE ICH [201]HNEN
660 [153]"DIE PEEKENUTZUNG DER ASCATNSTR$VAL(null) LEN(null)(null)(null)VALLEN(null)RIGHT$(null)(null)."
670 [141] 10000
1000 [143] ALLE EFFEKTE WERDEN NACHEINANDER PER NEXT-SCHLEIFE AUFGERUFEN
1001 [151] 251,5:[143] GESCHWINDIGKEIT (WERTE VON 0 BIS 15 ERLAUBT)
1010 [129] EF[178]0 [164] 14
1020 [151] 249,EF:[151]250,1:[139]EF[179][177]1 [167] [151] 251,5:[143] POKE250,1=EINBLENDEN
1025 [139] EF[178]1 [167] [151] 251,0
1030 [158] 49152:[143] AUFRUF DER FADER COLLECTION
1040 [129] WS[178]0[164]1000:[130] WS:[143] EINE KURZE WARTESCHLEIFE BIS ZUR AUSBLENDUNG
1050 [151] 250,2:[143] 2=AUSBLENDEN
1060 [158] 49152:[143] AUFRUF DER FC
1070 [130] EF
2000 [153]"LOADOPENSTR$IE PEEKENUTZUNG:
2010 PRINT"[201]N DEN ERSTEN [218]EILEN [201]HRES [208]ROGRAMMES
2020 [153]"MUESSEN FOLGENDE ATNNWEISUNGEN STEHEN,
2030 PRINT"UM [198]ADER [195]OLLECTION UND [201]HR
2040 [153]"EINZUBLENDENDES (null)(null)ATN(null)ATN-PEEKILD IN DEN       (null)PEICHER ZU HOLEN:"
2050 [153]"LIST10 IF A=0 THEN A=1:LOAD";[199](34);"FADER COLLECTION";[199](34);",8,1"
2060 [153]"LIST20 IF A=1 THEN A=2:LOAD";[199](34);"<NAME DES BILDES>";[199](34);",8,1
2070 GOSUB 10000
2100 PRINT"[147][158][196]ANACH KANN [201]HR [194]ILD MIT EINEM VON
2110 [153]"16 VALFFEKTEN EINGEBLENDET WERDEN.
2120 PRINT"[196]ER [193]USBLENDEFFEKT MUSS [206][201][195][200][212] GLEICH
2130 [153]"DEM VALINBLENDEFFEKT SEIN !!!
2140 PRINT"[201]N DIE [193]DRESSE 249[158] MUESSEN SIE DIE
2150 [153]"(null)UMMER DES GEWUENSCHTEN VALFFEKTES (0-15) (null)(null)(null)VALN,
2160 PRINT"IN 250[158] MUSS DIE [218]AHL 1[158] FUER [197]INBLENDEN,
2170 [153]"DIE (null)AHL 2SYS FUER ATNUSBLENDEN STEHEN.
2175 GOSUB 10000
2180 PRINT"[147][158][201]N 251[158] SCHREIBEN [211]IE BITTE DIE
2190 [153]"CHR$ESCHWINDIGKEIT.
2200 PRINT"[200]IER SIND [215]ERTE VON 0 BIS 15 MOEGLICH,  WOBEI 0 AM SCHNELLSTEN IST.
2210 [153]"ATNBER ATNCHTUNG:BEIM (null)ERT 0 ERFOLGT DIE
2220 PRINT"[197]INBLENDUNG/[193]USBLENDUNG TEILWEISE SO
2230 [153]"SCHNELL, DAS EIN VALFFEKT NICHT MEHR
2240 PRINT"ERKENNBAR IST !
2245 [153]"(null)UM VALIN/ATNUSBLENDEN GIBT MAN DANN DEN    PEEKEFEHL:   (null)(null)(null) 49152
2250 GOSUB 10000
2300 PRINT"[147][153][197]FFEKT [206]R.12 IST EINE
2310 [153]"LEFT$OCHGESCHWINDIGKEITSVERSION VON (null)R.1,
2320 PRINT"HIER KANN DIE [199]ESCHWINDIGKEIT NICHT
2330 [153]"BEEINFLUSST WERDEN.
2335 PRINT"[206]R.14 HAT EBENFALLS KEINE
2336 [153]"CHR$ESCHWINDIGKEITSEINSTELLUNG.
2340 PRINT"[206]R.15 SCHALTET DAS [194]ILD OHNE [197]FFEKT
2350 [153]"EIN UND AUS.
2400 GOSUB 10000
2410 PRINT"[147][153][215]ICHTIGE TECHNISCHE [200]INWEISE:
2420 [153]"ASCADER LENOLLECTION KANN IN PEEKATN(null)RIGHT$LENPROGRAMMEN
2430 PRINT"NUR AM [193]NFANG DES [208]ROGRAMMS EINGESETZT
2440 [153]"WERDEN, D.H. IN EINEM (null)ORPROGRAMM
2450 PRINT"WELCHES ANSCHLIESSEND DAS [200]AUPTPROGRAMM
2460 [153]"NACHLAEDT.
2470 PRINT"[215]ENN [201]HR [200]AUPTPROGRAMM ABER KUERZER ODER
2471 [153]"GLEICH 23 PEEKLOCKS LANG IST, DARF
2472 PRINT"[198]ADER [195]OLLECTION VERWENDET WERDEN.
2473 [141] 10000
2474 [153]"LOAD(null)ENN EIN PEEKATN(null)RIGHT$LEN (null)(null)CHR$. NAEMLICH MEHR ALS
2475 PRINT"23 [194]LOCKS HAT, DANN BELEGT ES DAS [210][193][205]
2476 [153]"AB $2000. ATNBER IN DAS (null)ATN(null) AB $2000
2477 PRINT"WIRD JA SCHON DAS [194]ILD EINGEBLENDET.
2478 [153]"STR$ADURCH WUERDE RIGHT$HR PEEKATN(null)RIGHT$LEN (null)ROGRAMM
2479 PRINT"UEBERSCHRIEBEN UND DER [195]64 ABSTUERZEN !!
2500 [141] 10000
2510 [153]"LOADOPENSTR$ER ATNUFRUF VON ASCADER LENOLLECTION DURCH
2520 PRINT"EIN [193]SSEMBLERPROGRAMM:
2530 [153]"(null)CHREIBEN (null)IE DIE (null)UMMER DES
2540 PRINT"GEWUENSCHTEN [197]FFEKTES IN DIE [193]DRESSE $F9
2550 [153]"IN DIE ATNDRESSE $FA DEN (null)ERT 1 FUER
2560 PRINT"[197]INBLENDEN, 2 FUER [193]USBLENDEN.
2562 [153]"RIGHT$N $FB MUSS DIE CHR$ESCHWINDIGKEIT REIN,
2563 PRINT"EIN [215]ERT VON 0 BIS $0F.
2564 [153]"STR$ER ATNUFRUF DER ASC.LEN. ERFOLGT SCHLIESSLICHDURCH   MID$(null)(null) $LEN000
2565 GOSUB 10000
2570 PRINT"[147][194]EACHTEN [211]IE DIE [211]PEICHERAUFTEILUNG:
2580 [153]"$2000-$3F40 LEFT$IRESSCREEN 1
2581 PRINT"$6000-$8711 [200]IRESSCREEN 2 ([207]RIGINALBILD)
2582 [153]"$C000-$CAB9 ASCADER LENOLLECTION
2600 GOSUB 10000
2700 PRINT"[147][198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]:
2710 [153]"SYSRIGHT$DEE, (null)ROGRAMM, PEEKASIC-STR$EMO & STR$EMOBILD IM
2715 PRINT"[203][207][193][204][193]FORMAT VON
2720 [153]"CONTPRINT(null)ATN(null)LENLEFT$ATN (null)VALRIGHT$LENLEFT$VAL(null)(null).
2730 PRINT"            [198]ADER [195]OLLECTION
2750 [153]"DEF         --- LEN(null)(null)(null)(null)RIGHT$CHR$LEFT$(null) 1992 ---
2760 PRINT"LIST[145][145][145]"
9999 END
10000 PRINT"---[212][193][211][212][197] [196][210][213][197][195][203][197][206]---"
10010 T$=""
10020 GET T$:IF T$<>" " THEN 10020
10030 RETURN